﻿Imports System.Xml.Serialization

<XmlRoot("Byte")> Public Class tagByte
    Inherits tagBase

    <XmlAttribute("Value")> Public Value As SByte

    Public Sub New()

    End Sub

    Friend Sub New(ByVal str As System.IO.Stream)
        MyBase.New(str)

        Dim b As Byte
        b = ReadBytesFromStream(str, 1)(0)
        If b < 128 Then
            Value = CType(b, SByte)
        Else
            Value = CType(b - 256, SByte)
        End If

    End Sub

End Class

